home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
tbbs
/
prgsourc.zip
/
HOMES.ZIP
/
PCOMP.PRG
< prev
next >
Wrap
Text File
|
1996-01-07
|
2KB
|
122 lines
PROCEDURE pcomp
SELECT c && Realtor.DBF
PRIVATE cnt
PRIVATE x
PRIVATE y
PRIVATE page
COUNT TO cnt
GOTO TOP
DECLARE agnc[cnt]
x = 1
DO WHILE x < cnt
agnc[x] = agency
x = x + 1
SKIP
ENDDO
agnc[x] = agency
x = 1
DO WHILE x < cnt
comp = agnc[x]
dummy = aScan(agnc,comp,x+1,cnt)
IF dummy = 0
x = x + 1
ELSE
dummy = aDel(agnc,x)
cnt = cnt - 1
ENDIF
ENDDO
IF cnt > 15
page = 15
ELSE
page = cnt
ENDIF
SET COLOR TO GR+/R
@ 21,0 CLEAR TO 23,79
@ 21,5 SAY "Up/Dn Arrow "
@ 22,5 SAY "<Enter> "
SET COLOR TO W+/R
@ 21,17 SAY "= Move within pick list"
@ 22,13 SAY "= Select from pick list"
SET COLOR TO BG/BG
@ 3,45 CLEAR TO page+4,74
SET COLOR TO N/BG
@ 3,45 TO page+4,74
x = 1
y = 4
DO WHILE x <= cnt .AND. y <= 18
@ y,47 SAY agnc[x]
x = x + 1
y = y + 1
ENDDO
SET COLOR TO GR+/BG
@ 4,47 SAY agnc[1]
x = 1
y = 4
DO WHILE LastKey() # 27
key = InKey(0)
DO CASE
CASE LastKey() = 5 && <Up Arrow>
IF x = 1
LOOP
ENDIF
SET COLOR TO N/BG
IF y = 4
x = x - 1
DO WHILE y <= 18
@ y,47 SAY agnc[x]
x = x + 1
y = y + 1
ENDDO
x = x - page
y = 4
ELSE
@ y,47 SAY agnc[x]
x = x - 1
y = y - 1
ENDIF
SET COLOR TO GR+/BG
@ y,47 SAY agnc[x]
LOOP
CASE LastKey() = 13 && <Enter>
comp = agnc[x]
DO cls WITH 3,45,page+4,74
EXIT
CASE LastKey() = 24 && <Dn Arrow>
IF x = cnt
LOOP
ENDIF
SET COLOR TO N/BG
IF y = 18
x = x - page + 2
y = 4
DO WHILE x < cnt .AND. y < 18
@ y,47 SAY agnc[x]
x = x + 1
y = y + 1
ENDDO
ELSE
@ y,47 SAY agnc[x]
x = x + 1
y = y + 1
ENDIF
SET COLOR TO GR+/BG
@ y,47 SAY agnc[x]
LOOP
ENDCASE
ENDDO
RELEASE agnc
RETURN